home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
WINPROGS
/
ATT302.ZIP
/
ALLTHETI.FRM
< prev
next >
Wrap
Text File
|
1993-11-06
|
20KB
|
697 lines
VERSION 2.00
Begin Form AllTheTime
AutoRedraw = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Caption = "AllTheTime"
ClientHeight = 30
ClientLeft = 60
ClientTop = 330
ClientWidth = 810
ClipControls = 0 'False
ControlBox = 0 'False
FillColor = &H00C0C0C0&
FillStyle = 0 'Solid
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 465
Icon = ALLTHETI.FRX:0000
Left = -15
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 30
ScaleWidth = 810
Top = -30
Visible = 0 'False
Width = 960
Begin TextBox Text1
Height = 288
Left = 2016
LinkTimeout = -1
TabIndex = 5
Top = 624
Visible = 0 'False
Width = 372
End
Begin PictureClip MoonSun
Cols = 5
Location = "1200,2400,2250,5430"
Picture = ALLTHETI.FRX:0302
Rows = 10
End
Begin SSFrame Frame3D1
ForeColor = &H00000000&
Height = 195
Left = 15
TabIndex = 4
Top = 8160
Width = 135
Begin SSOption Option3D1
Alignment = 1 'Right Justify
Caption = "&3 - Bottom right"
ForeColor = &H00000000&
Height = 255
Index = 2
Left = 1920
TabIndex = 2
Top = 960
Value = -1 'True
Width = 1575
End
Begin SSOption Option3D1
Caption = "&5 - Elsewhere"
ForeColor = &H00000000&
Height = 255
Index = 4
Left = 1530
TabIndex = 6
TabStop = 0 'False
Top = 615
Width = 1575
End
Begin SSOption Option3D1
Caption = "&1 - Upper left"
ForeColor = &H00000000&
Height = 255
Index = 0
Left = 105
TabIndex = 0
TabStop = 0 'False
Top = 255
Width = 1455
End
Begin SSOption Option3D1
Alignment = 1 'Right Justify
Caption = "&2 - Upper right"
ForeColor = &H00000000&
Height = 255
Index = 1
Left = 1920
TabIndex = 1
TabStop = 0 'False
Top = 270
Width = 1575
End
Begin SSOption Option3D1
Caption = "&4 - Bottom left"
ForeColor = &H00000000&
Height = 255
Index = 3
Left = 120
TabIndex = 3
TabStop = 0 'False
Top = 960
Width = 1575
End
End
Begin Image Delta
Height = 195
Left = 795
Top = 30
Width = 195
End
Begin Image StopWatch
Height = 195
Left = 570
Top = 30
Width = 195
End
Begin Image PrtStatus
Height = 240
Left = 510
Top = 10005
Width = 300
End
Begin Image PrtInactive
Height = 240
Left = 510
Top = 10080
Width = 285
End
Begin Image PrtActive
Height = 240
Left = 510
Top = 10080
Width = 300
End
Begin Image Picture1
Height = 225
Left = 30
Top = 30
Width = 240
End
Begin Image MoonPic
Height = 192
Left = 300
Top = 30
Width = 192
End
Begin Image SeasonPic
Height = 192
Left = 4080
Top = 30
Width = 192
End
End
'DefInt A-Z
Const GroupFauxCompilerDirective = False
Sub Delta_Click ()
SoundABorted = True
End Sub
Sub Delta_DblClick ()
SoundABorted = True
'DblCFlag% = True
End Sub
Sub Delta_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
'Delta.Picture = MoonSun.GraphicCell(46)
Call Form_MouseDown(Button, Shift, X, Y)
If Button = 1 Then 'Left button
If gDeltaRunning = 2 Then
'start timer
gResUser = GetFreeSystemResources(2) - (gStoppedResUser - gResUser)
gResGDI = GetFreeSystemResources(1) - (gStoppedResGDI - gResGDI)
gRes = GetFreeSystemResources(0) - (gStoppedRes - gRes)
gTotMem = GetTotalMem() - (gStoppedTotMem - gTotMem)
gBlkMem = GetBlockMem() - (gStoppedBlkMem - gBlkMem)
Delta.Picture = MoonSun.GraphicCell(47)
LastTime& = 0
'FontChangedNotYetSized = True
gDeltaRunning = 1
Else
'stop timer
gStoppedResUser = GetFreeSystemResources(2)
gStoppedResGDI = GetFreeSystemResources(1)
gStoppedRes = GetFreeSystemResources(0)
gStoppedTotMem = GetTotalMem()
gStoppedBlkMem = GetBlockMem()
LastTime& = 0
Delta.Picture = MoonSun.GraphicCell(48)
gDeltaRunning = 2
End If
End If
If Button = 2 Then
gResUser = GetFreeSystemResources(2)
gResGDI = GetFreeSystemResources(1)
gRes = GetFreeSystemResources(0)
gTotMem = GetTotalMem()
gBlkMem = GetBlockMem()
gStoppedResUser = GetFreeSystemResources(2)
gStoppedResGDI = GetFreeSystemResources(1)
gStoppedRes = GetFreeSystemResources(0)
gStoppedTotMem = GetTotalMem()
gStoppedBlkMem = GetBlockMem()
LastTime& = 0
End If
Exit Sub
If (gDeltaRunning = 0) Or (gDeltaRunning = 2 And Button = 2) Then
If (gDeltaRunning = 0) Then
gResUser = GetFreeSystemResources(2)
gResGDI = GetFreeSystemResources(1)
gRes = GetFreeSystemResources(0)
gTotMem = GetTotalMem()
gBlkMem = GetBlockMem()
Else
gResUser = GetFreeSystemResources(2) - (gStoppedResUser - gResUser)
gResGDI = GetFreeSystemResources(1) - (gStoppedResGDI - gResGDI)
gRes = GetFreeSystemResources(0) - (gStoppedRes - gRes)
gTotMem = GetTotalMem() - (gStoppedTotMem - gTotMem)
gBlkMem = GetBlockMem() - (gStoppedBlkMem - gBlkMem)
End If
gDeltaRunning = 1
Delta.Picture = MoonSun.GraphicCell(47)
LastTime& = 0
Else
If gDeltaRunning = 1 Then
gDeltaRunning = 2
gStoppedResUser = GetFreeSystemResources(2)
gStoppedResGDI = GetFreeSystemResources(1)
gStoppedRes = GetFreeSystemResources(0)
gStoppedTotMem = GetTotalMem()
gStoppedBlkMem = GetBlockMem()
LastTime& = 0
Delta.Picture = MoonSun.GraphicCell(48)
Else
Delta.Picture = MoonSun.GraphicCell(45)
gDeltaRunning = 0
gResUser = 0
gResGDI = 0
gRes = 0
gTotMem = 0
gBlkMem = 0
LastTime& = 0
End If
End If
End Sub
Sub Delta_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Form_MouseMove(Button, Shift, X, Y)
End Sub
Sub Delta_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Form_Mouse